home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / COMM / PPL4P10A / LOGIN.SS < prev    next >
Text File  |  1995-02-20  |  2KB  |  90 lines
  1. ###############################
  2. #     --- login.ss ---        #
  3. # log onto MSC BBS (TRIBBS)   #
  4. ###############################
  5. # compile with builder, ver 2 #
  6. ###############################
  7. #
  8. # define parameters to use
  9. #
  10. USER:     STRING "GUEST GUEST!"
  11. PASSWORD: STRING "GUEST!"
  12. PHONE:    STRING "1,205,880,9748!"
  13. #
  14. # Dial phone
  15. #
  16.   SETPACE  0.2
  17.   SETWAIT  5.0
  18.   REPLY    "!AT!"
  19.   WAITFOR  "OK"
  20.   IFTRUE   DIAL
  21.   SAY      "Expected 'OK' not received"
  22.   GOTO     ERROR
  23. DIAL:
  24.   SETWAIT  45.0
  25.   SAY      "Dialing "
  26.   SAY      PHONE
  27.   REPLY    "ATDT"
  28.   REPLY    PHONE
  29.   WAITFOR  "CONNECT"
  30.   IFTRUE   LOGIN
  31.   SAY      "'CONNECT' not received"
  32.   GOTO     ERROR
  33. #
  34. # no graphics
  35. #
  36. #
  37. LOGIN:
  38.   SETWAIT  30
  39.   REPLY    CR
  40.   WAITFOR  "graphics (y/N)?|LAST name:"
  41.   IF       "0" THEN  GET_NAME
  42.   IF       "1" THEN  GOT_NAME
  43.   SAY      "'graphics (y/N)?' not received"
  44.   GOTO     ERROR
  45. #
  46. # enter name
  47. #
  48. GET_NAME:
  49.   REPLY    CR
  50.   WAITFOR  "LAST name:"
  51.   IFTRUE   GOT_NAME
  52.   SAY      "'LAST name' not received"
  53.   GOTO     ERROR
  54. GOT_NAME:
  55.   REPLY    USER
  56. #
  57. # enter password
  58. #
  59.   WAITFOR  "password:"
  60.   IFTRUE   GOT_PASS
  61.   SAY      "'password:' not received"
  62.   GOTO     ERROR
  63. GOT_PASS:
  64.   REPLY    PASSWORD
  65. #
  66. # "more?" or "Main Menu:"
  67. #
  68. MORE:
  69.   WAITFOR  "more?|Main Menu:"
  70.   IF       "1" THEN GOT_MAIN
  71.   IFNOT    "0" THEN ERROR
  72.   REPLY    CR
  73.   GOTO     MORE
  74. GOT_MAIN:
  75.   REPLY    CR
  76.   SAY      "logged on"
  77.   HALT
  78. #
  79. # error exit
  80. #
  81.  ERROR:    SAY "Error !"
  82.   STATUS
  83.   HALT
  84. #
  85. # common strings
  86. #
  87. CR:     STRING  "^M"
  88. #
  89.   END
  90.